home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Chans / slocal / alert-script next >
Encoding:
Text File  |  1991-12-18  |  1.0 KB  |  41 lines
  1. #!/bin/csh -f
  2.  
  3. ################################################################################
  4. #
  5. # alert script for PP messages (PODA) - used by slocal
  6. #
  7. # slocal calls :
  8. #    alert username messagenumber message
  9. #
  10. ################################################################################
  11.  
  12.  
  13. if ($#argv) then
  14.     set tlist=`w | awk  '/^'$1'/ {print $2}'`
  15.     set message=~$1/PPMail/inbox/$2
  16.     chmod777 $message
  17.     set header=$message/hdr.822
  18.     set filelist=`ls -F $message`
  19.     foreach i ($tlist)
  20.         echo "" >/dev/$i
  21.         echo '******************************************************' >/dev/$i
  22.         echo $argv[3-]    '('message $2')' >/dev/$i
  23.         echo "" >/dev/$i
  24.         if (-e $header) then
  25.             awk '\
  26.                 /^Subject/    {printf "%s\n",$0 } \
  27.                 /^Date/        {printf "%s\n",$0 } \
  28.                 /^From/        {printf "%s\n",$0 } \
  29.                 '\
  30.                  $header >/dev/$i
  31.             echo "" >/dev/$i
  32.         else
  33.             echo No hdr.822 file in $message >/dev/$i
  34.         endif
  35.         echo    'Files: '$filelist >/dev/$i
  36.         echo "" >/dev/$i
  37.         echo '******************************************************' >/dev/$i
  38.         echo "" >/dev/$i
  39.     end
  40. endif
  41.